 (* Params:
 *      file as string         : .obj filename WITH EXTANTION!
 *      width as int           : gl window width
 *      height as int          : gl window height
 * Return:
 *      gl_display              as unit -> unit
 *      gl_reshape              as ~width ~height -> unit
 *      gl_key                  as int -> unit where first
  *                             argument is hardware keycode
 *              111 -> up arrow
 *              116 -> down arrow
 *      gl_mousemove            as int -> int -> unit
 *      gl_mousemove_passive    as int -> int -> unit
 *      gl_set_pos              as (float,float,float) -> unit
 *      gl_get_pos              as unit -> (float,float,float)
 *      and others...
 *)
let init_and_get width height objpath fline getcolor =
	Graphics.execute width height objpath fline getcolor


